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-- DebugContext.mesa 
-- Edited by: 

Johnsson on August 30, 1978 10:55 AM 

Sandman on May 24, 1978 10:11 AM 

Barbara on June 23, 1978 2:11 PM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [PageSize], 
BcdDefs: FROM "bcddefs" USING [ 

CTIndex, CTNull, MTHandle, MTIndex, NameString], 
CommandDefs: FROM "commanddef s" USING [WriteSignalString] , 
ControlDefs: FROM "control defs" USING [ 

FrameCodeBase, FrameHandle, GFT, GFTIndex, GlobalFrameHandle, 

GlobalFrame, NullGlobalFrame], 
DebugContextDefs: FROM "debugContex tdef s" USING [ 

CleanupControlDEL, DAcquireBcd, DeletedFrame, DReleaseBcd, InitBCD, 

PrintName, SameConfig], 
DebugData: FROM "debugdata" USING [ 

bcdseg, caseignoring, config, cti , gContext, initBCD, IContext, pContext, 

ssb] , 
DebugMiscDefs: FROM "debugmiscdef s" USING [ 

ControlDEL, CopyRead, DebugAbort, DFreeString, DGetString, LookupFail, 

WriteEOL], 
DebugSymbolDefs: FROM "debugsymboldef s" USING [DCleanSymbol Items], 
DebugUsefulDefs: FROM "debugusef uldef s" , 
DebugUtilityDefs: FROM "debugutil itydef s M USING [ 

CacheNewFile, CheckFrame, Inval idateFileCache , LoadStatelnval id , MREAD, 

ReadGlobalGFI , ReverseEnumerateGlobal Frames , Val idGlobalFrame], 
ImageDefs: FROM "imagedefs" USING [ImageHeader, VersionID], 
' IODefs: FROM "iodefs" USING [ 

CR, WriteChar, WriteLine, WriteOctal, WriteString], 
LoaderBcdUtilDefs: FROM M loaderbcdutildef s" USING [ 

BcdBase, EnumerateModuleTable, FindName, ReleaseBcdSeg , SetUpBcd], 
LoadStateDefs: FROM "loadstatedef s" USING [ 

BcdSegFromLoadState, Configlndex, ConfigNull, GetLoadState, GFTIndex, 

InputLoadState, MapConf igToReal , MapRealToConf ig , ReleaseLoadState, 

SetLoadState], 
ProcessDefs: FROM "processdef s" USING [ProcessHandle], 
SegmentDefs: FROM "segmentdef s" USING [ 

Defaul tAccess, DeleteFileSegment, FileHandle, FileNameError, 

FileSegmentAddress, FileSegmentHandl e, FileSegmentObject, 

InvalidFP, MoveFileSegment , NewFileSegment, Read, Swapln, Unlock], 
StreamDefs: FROM "streamdef s" USING [ControlDELtyped] , 
StringDefs: FROM "stringdefs" USING [ 

AppendString, AppendSubString, EqualSubStrings , EquivalentSubStrings , 

Substring, SubStringDescriptor], 
SystemDefs: FROM "systemdefs" USING [AllocateHeapNode, FreeHeapNode]; 

DEFINITIONS FROM BcdDefs, DebugContextDefs, LoaderBcdUtilDefs, LoadStateDefs; 

DebugContext: PROGRAM 

IMPORTS DDptr: DebugData, CommandDefs, DebugContextDefs, DebugMiscDefs, 

DebugSymbolDefs, DebugUtilityDefs, IODefs, LoaderBcdUtilDefs, LoadStateDefs, 

SegmentDefs, StreamDefs, StringDefs, SystemDefs 
EXPORTS DebugContextDefs, DebugUsefulDefs, DebugUtilityDefs 
SHARES ImageDefs, ProcessDefs ■ 

BEGIN 

FileSegmentHandle: TYPE = SegmentDefs . FileSegmentHandle; 
GlobalFrameHandle: TYPE « ControlDefs .Global FrameHandl e; 

SetOctalContext: PUBLIC PROCEDURE [f: UNSPECIFIED] ■ 
BEGIN 

IF DebugUtilityDefs. CheckFrame[f ] THEN WriteLocalContext[f ] 
ELSE WriteGlobalContext[f]; 
RETURN 
END; 

SetModuleContext: PUBLIC PROCEDURE [s: STRING] - 
BEGIN 

f: GlobalFrameHandle; 

f <- MocluleNameTorrame[s I Mul tiplelnstances ■> RESUME]; 
IF f * ControlDefs. NullGlobalFrame THEN RETURN; 
DDptr. gContext ♦■ f; 
DDptr. IContext «- NIL; 
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DDptr.pContext <- NIL; 

RETURN 

END; 

ModuleNameToFrame: PUBLIC PROCEDURE [s: STRING] RETURNS [f: Global FrameHandle] » 
BEGIN OPEN ControlDefs; 
Frameltem: TYPE ■ RECORD [next: POINTER TO Frameltem, 

faddr: GlobalFrameHandle] ; 
Fcount: INTEGER <- 0; 
Flist: POINTER TO Frameltem «- NIL; 
moddesc: StringDef s.SubStr ingDescrip tor ; 
modss: StringDef s .Substring <- Gmgddesc; 
bed: BcdBase; 

FreeFramel terns: PROCEDURE - 
BEGIN 

nfl, fl: POINTER TO Frameltem; 
nfl <- Flist; 
UNTIL (fl «- nfl) ■ NIL DO 

nfl <- fl .next; 

SystemDef s. FreeHeapNode[f 1 ] ; 

ENDLOOP; 
Flist «- NIL; 
RETURN 
END; 

WriteFrameltems: PROCEDURE * 
BEGIN OPEN IODefs; 
fl: POINTER TO Frameltem <- Flist; 
DebugMiscDefs.WriteEOL[]; 

WriteChar[ ' 1 ] ; Wri teString[s] ; WriteString[ M has frames at"L]; 
UNTIL fl ■ NIL DO 

WriteChar[' ]; Wri teOctal [fl .faddr]; 

fl <- fl .next; 

ENDLOOP; 
DebugMiscDefs.WriteEOL[]; 

WriteString["Use SEt Octal context or Display Frame command. "L]; 
RETURN 
END; 

FindModuleString: PROCEDURE [mth: MTHandle, mti: MTIndex] RETURNS[BOOLEAN] - - 
BEGIN OPEN DebugUtilityDefs, StringDefs; 
gfi: GFTIndex; 
ssd: SubStringDescriptor «- 

[base: GDDptr.ssb. string, offset: mth. name, length: DDptr. ssb.size[mth.name]]; 
ss: Substring «- @ssd; 
fl: POINTER TO Frameltem <- Flist; 

IF StreamDefs.ControlDELtyped[] THEN CleanupControlDEL[DDptr .bedseg] ; 
IF ~SameConfig[bcd, mth.config, DDptr. cti] THEN RETURN[FALSE] ; 
IF (Equi valentSubStrings[ss , modss] AND DDptr . caseignoring) 

OR EqualSubStrings[ss, modss] THEN 

BEGIN 

IF DeletedFrame[gf i *- MapConf igToReal [mth .gf i , DDptr .config]] 
THEN RETURN [FALSE]; 

Flist *- SystemDefs . AllocateHeapNode[SIZE[FrameItem]]; 

Flistt ♦- Frameltem[next: f 1 , faddr: MREAD[@GFT[gf i] .frame]] ; 

Fcount <- Fcount + 1; 

END; 
RETURN[FALSE] 
END; 

moddesc ♦- StringDef s .SubStr ingDescriptor[base : s, offset: 0, length: s. length]; 

[] «- Inpu tLoadState[]; 

bed <- DAcquireBcd[] ; 

[,] <- EnumerateModuleTable[bcd , FindModuleString]; 

DReleaseBcd[]; 

ReleaseLoadState[] ; 

IF Fcount - THEN SIGNAL DebugMiscDef s . LookupFai 1 [s] ; 

IF Fcount - 1 THEN f *- Flist. faddr 

ELSE BEGIN 

SIGNAL Multiplelnstances[s 1 UNWIND «> FreeFrameItems[]]; 

f <- NullGlobalFrame; 

WriteFrameItems[]; 

END; 
FreeFramel tems[]; 
RETURN[f] 
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END; 

Multiplelnstances: PUBLIC SIGNAL [s: STRING] ■ CODE; 

InvalidGlobalFrame: PUBLIC ERROR [f: ControlDefs .Global FrameHandle] a CODE; 

FrameToModuleName: PUBLIC PROCEDURE [f: Global FrameHandle, s: STRING] » 
BEGIN OPEN DebugUtilityDefs, ControlDefs; 
cgfi: GFTIndex; 
newconfig: Configlndex; 
tempssb; NameString; 
newbcdseg: FileSegmentHandle; 
newbcd: BcdBase; 

FindModuleString: PROCEDURE [mth: MTHandle, mti: MTIndex] 
RETURNS [BOOLEAN] » 
BEGIN 

ssd: StringDefs.SubStringDescriptor; 
IF cgfi IN[mth.gfi..mth.gfi+mth.ngfi) THEN 

BEGIN 

ssd <- [base: ©tempssb. string , offset: mth. name, 
length : tempssb. size[mth.name]]; 

StringDefs.AppendSubString[s,@ssd]; 

RETURN[TRUE]; 

END; 
RETURN[FALSE]; 
END; 

[cgfi , newconfig] <- MapRC[ 

IF VirtualGlobalFrame[f]. copied THEN FindOriginal[f ] ELSE f]; 
IF newconfig » ConfigNull THEN ERROR Inval idGlobal Frame[f ] ; 
IF newconfig # DDptr.config OR DDptr . initBCD THEN 

BEGIN 

newbcd «- SetUpBcd[newbcdseg <- BcdSegFromLoadState[newconf ig]] ; 

tempssb <- LOOPHOLE[newbcd+newbcd.ssOff set] ; 

[] <- EnumerateModuleTable[newbcd, FindModuleString]; 

Re leaseBcdSeg[ newbcdseg] ; 

END 
ELSE 

BEGIN newbcd <- DAcquireBcd[] ; 

tempssb <- DDptr. ssb; 

[] <- EnumerateModuleTable[newbcd, FindModuleString]; 

DReleaseBcd[]; 

END; 
RETURN 
END; 

ResetContext: PUBLIC PROCEDURE [f: ControlDefs . FrameHandle, 
psb: ProcessDef s .ProcessHandle] a 
BEGIN 

WriteLocalContext[f ]; 
DDptr. pContext <- psb; 
RETURN 
END; 

WriteLocalContext: PUBLIC PROCEDURE [f: ControlDefs . FrameHandle] * 
BEGIN 

g: Global FrameHandle «- DebugUtil ityDef s .MREAD[@f . accessl ink]; 
IF -DebugUtilityDefs. CheckFrame[f] THEN 

BEGIN CleanupInvalidContext[f]; RETURN END; 
BEGIN 

WriteContext[g ISegmentDefs . Inval idFP => GOTO exit]; 
DDptr. IContext <- f; 
DDptr . gContext <- g; 
EXITS 

exit «> NULL; 
END; 
RETURN 
END; 

WriteGlobalContext: PUBLIC PROCEDURE [f: ControlDefs .GlobalFrameHandle] ■ 
BEGIN 

IF -DebugUtilityDefs. Val idGlobal Frame[f] THEN 
BEGIN CleanupInva1idContext[f]; RETURN END; 
BEGIN 
WriteContext[f ISegmentDefs . Inval idFP *> GOTO exit]; 
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DDptr.lContext <- NIL; 
DDptr.gContext +- f; 
EXITS 

exit -> NULL; 
END; 
RETURN 
END; 

CleanupInvalidContext: PROCEDURE [f: UNSPECIFIED] - 
BEGIN 

DebugMiscDefs.WriteEOL[]; 
IODefs.WriteOctal[f]; 

IODefs.WriteString[" is not a valid frameT'L]; 
IF -DDptr. initBCD THEN SIGNAL DebugMiscDef s .DebugAbort 
ELSE 

BEGIN InitConfig[]; DDptr. initBCD <- FALSE; END; 
RETURN 
END; 

WriteContext: PROCEDURE [f: ControlDefs .Global FrameHandle] ■ 
BEGIN OPEN DebugUtilityDefs, ControlDefs; 
cgfi: GFTIndex; 
newconfig: Configlndex; 
bed: BcdBase; 

FindWhichModule: PROCEDURE[mth : MTHandle, mti: MTIndex] RETURNS [BOOLEAN] 
BEGIN 
IF cgfi IN [mth.gfi. .mth.gf i+mth . ngf i ) THEN 

BEGIN DDptr. cti <- mth. config; REI"URN[TRUE] ; END; 
RETURN[FALSE]; 
END; 

BEGIN 

DDptr. pContext ♦• NIL; 

[] <- InputLoadState[ I LoadStatelnval id => GOTO noContext]; 

[cgfi .newconfig] «- MapRC[ 

IF VirtualGlobalFrame[f]. copied THEN FindOriginal [f ] ELSE f]; 
IF newconfig = ConfigNull THEN ERROR Inval idGlobal Frame[f] ; 
IF newconfig # DDptr. config OR DDptr . initBCD THEN 

BEGIN 

DDptr. initBCD «- FALSE; 

DDptr. config *- newconfig; 

IF DDptr. bedseg # NIL THEN SegmentDefs .DeleteFil eSegment[DDptr .bedseg] ; 

bed «- SetUpBcd[DDptr. bedseg <- BcdSegFromLoadState[DDptr. config]]; 

DDptr. ssb «- LOOPHOLE[bcd+bcd.ssOffset]; 

END 
ELSE bed <- DAcquireBcd[]; 

[] «- EnumerateModuleTable[bcd, FindWhichModule]; 
DReleaseBcd[]; 
ReleaseLoadState[] ; 
EXITS 

noContext => 

BEGIN DDptr.lContext «- NIL; DDptr.gContext <- NIL; END; 
END; 
RETURN 
END; 

MapRC: PUBLIC PROCEDURE [f: Global FrameHandle] 
RETURNS [cgfi: GFTIndex, config: Configlndex] « 
BEGIN 

[cgfi, config] <- MapRealToConf ig[DebugUtil ityDef s . ReadGlobalGFI[f ]]; 
RETURN 
END; 

GlobalFrame: TYPE = ControlDefs .Global Frame; 
global Frame: GlobalFrame; 

VirtualGlobalFrame: PUBLIC PROCEDURE [frame: GlobalFrameHandle] 
RETURNS [GlobalFrameHandle] » 
BEGIN OPEN DebugMiscDefs; 

CopyReacl[to: QglobalFrame, from: frame, nwords: SIZE[GlobalFrame]]; 
RETURN[@globalFrame] 
END; 

FindOriginal: PUBLIC PROCEDURE [copy: GlobalFrameHandle] 
RETURNS [GlobalFrameHandle] » 



DebugContext.mesa 2-Sep-78 15:32:14 Page 



BEGIN 

Original: PROCEDURE [f: Global FrameHandle] RETURNS [BOOLEAN] - 

BEGIN 

RETURN[f # copy AND -VirtualGlobal Frame[f] .copied AND 
SameModule[copy, f]]; 

END; 
RETURN[DebugUtil ityDef s . Re verseEnumer ateGlobal Frames [Original ]] 
END; 

SameModule: PROCEDURE [fl, f2: Global FrameHandle] RETURNS [BOOLEAN] ■ 
BEGIN OPEN DebugUtilityDefs; 
ol, 02: CARDINAL; 
si, s2: FileSegmentHandle; 
fcb: ControlDefs.FrameCodeBase; 
si «- MREAD[@f l.codesegment] ; 
s2 <- MREAD[@f2.codesegment]; 
IF si # s2 THEN RETURN[FALSE]; 
fcb <- MREAD[@fl.code]; 
IF -fcb. swappedout THEN 

ol <- fcb.codebase - UserFileSegmentAddress[sl] 
ELSE 

BEGIN 

f cb. swappedout <- FALSE; 

01 ♦• fcb. offset; 
END; 

fcb «- MREAD[@f2.code]; 
IF -fcb .swappedout THEN 

02 «- fcb.codebase - UserFileSegmentAddress[s2] 
ELSE 

BEGIN 

fcb. swappedout *- FALSE; 

o2 <- fcb. offset; 

END; 
RETURN[ol * 02]; 
END; 

UserFileSegmentAddress: PROCEDURE [seg: FileSegmentHandle] RETURNS [POINTER] - 
BEGIN OPEN DebugMiscDefs, SegmentDefs; 
Iseg: FileSegmentObject ; 

IF LOOPHOLE[seg, CARDINAL] <- 255 THEN RETURN[LOOPHOLE[0]] ; 
CopyRead[f rom: seg, to: @lseg, nwords: SIZE[FileSegmentObject]] ; 
RETURN[LOOPHOLE[lseg.VMpage*AltoDefs.PageSize]] 
END; 

WhereAml: PUBLIC PROCEDURE = 
BEGIN OPEN IODefs; 

module: STRING <- DebugMiscDefs .DGetString[40] ; 
bed: BcdBase; 
ctb: CARDINAL; 
BEGIN 

[] <- InputLoadState[ ! DebugUtil ityDef s.LoadStatelnval id => GOTO noContext]; 
WriteLine["context ~-"L]; 
WriteString[" Module: M L]; 
FrameToModuleName[DDptr .gContext, module]; 
WriteString[module]; 
WriteString[", G: "L]; 
WriteOctal[DDptr. gContext]; 
IF DDptr.lContext # NIL THEN 

BEGIN WriteString[", L: "L]; WriteOc tal [DDptr . IContext] ; END; 
IF DDptr. pContext # NIL THEN 

BEGIN WriteString[", PSB: ,f L]; WriteOctal[DDptr .pContext]; END; 
WriteChar[CR]; 
bed «- DAcquireBcd[]; 
IF bcd.nConfigs # THEN 

BEGIN 

WriteString[" Configuration: "L]; 

ctb <- LOOPHOLE[bcd+bcd.ctOf fset]; 

IF (ctb+DDptr .cti) . namedinstance THEN 
BEGIN 

PrintName [DDptr . ssb , FindName[bcd, [conf ig [DDptr .cti]]]]; 
IODefs. WriteString[ M : "L]; 
END; 

PrintName [DDptr .ssb, (ctb+DDptr . cti) .name]; 

END; 
DRe)easeBcd[]; 
ReleaseLoadState[]; 
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DebugMiscDefs.DFreeString[module]; 
EXITS 

noContext ■> IODef s.WriteString["No valid contextl l"L] ; 
END; 
RETURN 
END; 

WriteWorld: PUBLIC PROCEDURE - 
BEGIN OPEN DebugUtilityDefs; 

GFWrite: PROCEDURE[f rame: ControlDef s .GlobalFrameHandle] RETURNS [BOOLEAN] 
BEGIN OPEN ControlDefs, IODefs; 
module: STRING; 
--code: UNSPECIFIED; 

IF frame - NullGlobal Frame THEN RETURN[FALSE] ; 
module «- DebugMiscDef s.DGetString[40]; 
FrameToModuleName[ frame, module] ; 
WriteString[module]; 

WriteString[", G: M L]; WriteOctal [frame] ; 
--IF (code «- MREAD[@frame.code]) MOD 2 » THEN WriteString[ M , C:"L] 
--ELSE WriteString[", offset:"L]; 
--WriteOctal [code] ; 

WriteString['\ gfi:"L]; 
WriteOctal[ReadGlobalGFI[frame]]; 
DebugMiscDef s.WriteEOL[]; 
IF StreamDefs.ControlDELtyped[] THEN 
BEGIN 

LoadStateDef s .ReleaseLoadState[]; 
DebugMiscDef s.DFreeSt ring [module]; 
SIGNAL DebugMiscDefs.ControlDEL; 
END; 
DebugMiscDef s.DFreeSt ring[module]; 
RETURN[FALSE] 
END; 

DebugMiscDefs.WriteEOL[]; 

[] <- LoadStateDefs.InputLoadState[]; 

[] «- ReverseEnumerateGlobalFrames[GFWrite] ; 

LoadStateDef s. Re leaseLoadSt a te[]; 

RETURN 

END; 

InvalidlmageFile: PUBLIC SIGNAL [image: STRING] - CODE; 

AttachlmageFile: PUBLIC PROCEDURE [name: STRING]- 
BEGIN OPEN SegmentDefs; 
file: FileHandle; 
oldseg, seg: FileSegmentHandle; 
image: POINTER TO ImageDef s . ImageHeader; 
base, pages: CARDINAL; 
CheckForExtension[name, ". image"L]; 

file <- DebugUtil ityDefs .CacheNewFile[name, Def aul tAccess I 
FileNameError ■> 
BEGIN 

CommandDef s. Writes igna!String[f ile]; 
IODefs .Wri teString[name] ; 
SIGNAL DebugMiscDefs.DebugAbort; 
END]; 
seg *- NewFileSegment[f ile, 1, 1, Read]; 
Swapln[seg] ; 

image <- FileSegmentAddress[seg] ; 

IF image. prefix . versionident # ImageDef s .VersionID 
THEN SIGNAL Inval idlmageFi 1 e[name ! UNWIND »> 
BEGIN Unlock[seg]; DeleteFi leSegment[seg] ; END]; 
base <- image. pref ix. init ial LoadStateBase; 
pages <- image. pref ix. loadStatePages ; 
Unlock[seg]; 

MoveFileSegment[seg, base, pages]; 
IF (oldseg *- GetLoadState[]) # NIL THEN 
BEGIN 

UNTIL oldseg. lock -= DO Unlock[oldseg] ; ENDLOOP; 
DeleteFi leSegment[oldseg]; 
END; 
SetLoadState[seg]; 
DebugContextDefs.InitBCD[]; 
DebugUtilityDefs, In val idateF il eCache[]; 
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DebugSymbolDefs.DCleanSymbolItems[]; 

RETURN 

EXITS return «> RETURN 

END; 

CheckForExtension: PROCEDURE [name, ext: STRING] - 
BEGIN 

i: CARDINAL; 

FOR i IN [0. .name. length) DO 
IF name[i] ■ \ THEN RETURN; 
ENDLOOP; 
St ringDefs. Appends tring[name, ext]; 
RETURN 
END; 

InitConfig: PROCEDURE » 
BEGIN 

bed: BcdBase; 
DDptr.lContext <- NIL; 
DDptr.gContext «- NIL; 
DDptr.pContext «- NIL; 
IF DDptr.bcdseg # NIL THEN 

BEGIN 

SegmentDef s.DeleteFileSegment[DDptr . bedseg]; 

DDptr.bcdseg «- NIL; 

END; 
BEGIN 
DDptr.config ♦- InputLoadState[ 

t DebugUtilityDef s .LoadStatelnval id => GOTO noContext] - 1; 
bed <- SetUpBcd[DDptr. bedseg *• BcdSegFromLoadState[DDptr.conf ig]]; 
DDptr.ssb *- LOOPHOLE[bcd + bcd.ssOffset]; 
DDptr.cti ♦■ IF bcd.nConfigs = AND bcd.nModules - 1 

THEN CTNull ELSE FIRST[CTIndex] ; 
DReleaseBcd[]; 
ReleaseLoadState[] ; 
EXITS 

noContext ■> 

BEGIN DDptr.config «- ConfigNull; DDptr.cti ♦- CTNull; END; 
END; 
RETURN 
END; 



END... 



